home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume11 / starchart / part27 < prev    next >
Encoding:
Text File  |  1990-03-25  |  38.1 KB  |  1,355 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v11i055: starchart 3.2 Part 27/32
  3. from: ccount@ATHENA.MIT.EDU
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 11, Issue 55
  7. Submitted-by: ccount@ATHENA.MIT.EDU
  8. Archive-name: starchart/part27
  9.  
  10. #! /bin/sh
  11. # This is a shell archive.  Remove anything before this line, then unpack
  12. # it by saving it into a file and typing "sh file".  To overwrite existing
  13. # files, type "sh file -c".  You can also feed this as standard input via
  14. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  15. # will see the following message at the end:
  16. #        "End of archive 27 (of 32)."
  17. # Contents:  starchart/startool.tt
  18. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  19. if test -f 'starchart/startool.tt' -a "${1}" != "-c" ; then 
  20.   echo shar: Will not clobber existing file \"'starchart/startool.tt'\"
  21. else
  22. echo shar: Extracting \"'starchart/startool.tt'\" \(36032 characters\)
  23. sed "s/^X//" >'starchart/startool.tt' <<'END_OF_FILE'
  24. X#define        TRUE        1
  25. X#define        FALSE        0
  26. X
  27. X/* you may deed to add a path, e.g. /usr/local/startool.sh,
  28. X    but everything beyond the icon shouldn't change */
  29. Xapplication "startool.sh"
  30. X   size 24 by 80 characters
  31. X   icon "startool.icon"
  32. X   label "<< StarChart >>"
  33. X   initialize {
  34. X     ra = "0";    ra_set = FALSE;
  35. X     dec = "0";    dec_set = FALSE;
  36. X     scale = "15";    scale_set = FALSE;
  37. X     constellation_name = "";    find_set = FALSE;
  38. X     constfile = "";
  39. X     namelim = "2";     namelim_set = FALSE; /* namelim == lbllim */
  40. X     gklim = "6";     gklim_set = FALSE;
  41. X     maglim = "9";     maglim_set = FALSE;
  42. X     title = "StarChart Sun";
  43. X     title_set = FALSE;
  44. X
  45. X     starfile = "";
  46. X     indexfile = "";
  47. X     nebfile = "";
  48. X     planetfile = "";
  49. X     boundfile = "";
  50. X     patternfile = "";
  51. X     constlnamefile = "";
  52. X
  53. X     write_mapwin_file = "";
  54. X     read_mapwin_file = "";
  55. X     projection_mode = "sansons";
  56. X     invert = FALSE;
  57. X     chart_type = "threepart";
  58. X     vrange_low = "";
  59. X     vrange_high = "";
  60. X     vrange_set = FALSE;
  61. X     vmags_mag = "";
  62. X     vmags_range = "";
  63. X     vmags_set = FALSE;
  64. X     nomaglbls = TRUE;
  65. X     grid_ra = "1";        grid_ra_set = FALSE;
  66. X     grid_dec = "5";        grid_dec_set = FALSE;
  67. X     grid_ra_start = "0";    grid_ra_start_set = FALSE;
  68. X     grid_dec_start = "0";    grid_dec_start_set = FALSE;
  69. X     nogrid_ra = TRUE;
  70. X     nogrid_dec = TRUE;
  71. X     special = "";
  72. X   }
  73. Xgadgets
  74. X   right
  75. X   font "/usr/lib/fonts/fixedwidthfonts/screen.b.14"
  76. X   label
  77. X      "Controls:" : "/usr/lib/fonts/fixedwidthfonts/cour.b.14"
  78. X   end_label
  79. X   button
  80. X     normal " Chart "
  81. X    display chart_dialog;
  82. X   end_button
  83. X   button
  84. X     normal " Type "
  85. X    display type_dialog;
  86. X   end_button
  87. X   button
  88. X     normal " Magnitudes "
  89. X    display mag_dialog;
  90. X   end_button
  91. X   button
  92. X     normal " Layers "
  93. X    display layer_dialog;
  94. X   end_button
  95. X   button
  96. X     normal " User Files "
  97. X    display sfiles_dialog;
  98. X   end_button
  99. X   button
  100. X     normal " Map Files "
  101. X    display files_dialog;
  102. X   end_button
  103. X   button
  104. X     normal " Projection mode "
  105. X    display proj_dialog;
  106. X   end_button
  107. X   button
  108. X     normal " Magnitude labels "
  109. X    display var_dialog;
  110. X   end_button
  111. X   button
  112. X     normal " Grid "
  113. X    display grid_dialog;
  114. X   end_button
  115. X   label
  116. X      "Actions:" : "/usr/lib/fonts/fixedwidthfonts/cour.b.14"
  117. X   end_label
  118. X   button
  119. X      normal    " Draw Chart "
  120. X    {
  121. X        if (ra_set) send format("ra = %s\n", ra);
  122. X        if (dec_set) send format("dec = %s\n", dec);
  123. X        if (scale_set) send format("scale = %s\n", scale);
  124. X        if (constfile != "") send format("constfile = %s\n",
  125. X                 constfile);
  126. X        if (find_set) send format("findconst = %s\n",
  127. X                 constellation_name);
  128. X        if (namelim_set) send format("namelim = %s\n", namelim);
  129. X        if (gklim_set) send format("gklim = %s\n", gklim);
  130. X            if (maglim_set) send format("maglim = %s\n", maglim);
  131. X
  132. X            if ((grid_ra_set)  ||  (grid_dec_set))
  133. X            send format("grid = %s %s\n", grid_ra, grid_dec);
  134. X            if ((grid_ra_start_set) || (grid_dec_start_set))
  135. X            send format("grid = %s %s %s %s\n",
  136. X            grid_ra, grid_dec,
  137. X            grid_ra_start, grid_dec_start);
  138. X        if (nogrid_ra) send "nogrid_ra=true\n";
  139. X        else send "nogrid_ra=false\n";
  140. X        if (nogrid_dec) send "nogrid_dec=true\n";
  141. X        else send "nogrid_dec=false\n";
  142. X
  143. X                if (title_set) send format("title = %s\n", title);
  144. X        send format("projection_mode = %s\n", projection_mode);
  145. X        send format("chart_type = %s\n", chart_type);
  146. X        if (invert) send "invert=true\n";
  147. X        else send "invert=false\n";
  148. X        if (vrange_set)
  149. X            send format("vrange %s %s\n", vrange_high, vrange_low);
  150. X        for (i = 0; i < 20; i++)
  151. X            if (layer[i] != "")
  152. X                          send format("layers %s\n", layer[i]);
  153. X        for (i = 0; i < 14; i++)
  154. X            if (mapfile[i] != "")
  155. X             send format("mapfile %s %s\n",
  156. X                mapfile[i], maptype[i]);
  157. X        if (starfile != "")
  158. X             send format("starfile %s %s\n", starfile, startype);
  159. X        if (indexfile != "")
  160. X             send format("indexfile %s %s\n", indexfile, indextype);
  161. X        if (nebfile != "")
  162. X             send format("nebfile %s %s\n", nebfile, nebtype);
  163. X        if (planetfile != "")
  164. X             send format("planetfile %s %s\n", planetfile, plantype);
  165. X        if (boundfile != "")
  166. X             send format("boundfile %s %s\n", boundfile, boundtype);
  167. X        if (patternfile != "")
  168. X             send format("patternfile %s %s\n", patternfile, patterntype);
  169. X        if (constlnamefile != "")
  170. X             send format("constlnamefile %s %s\n",
  171. X                constlnamefile, cnametype);
  172. X        for (i = 0; i < 10; i++)
  173. X            if (userfile[i] != "")
  174. X             send format("userfile %s %s\n",
  175. X                userfile[i], usertype[i]);
  176. X        if (out_fname != "")
  177. X            send format("write_rc_file %s\n", out_fname);
  178. X        if (write_mapwin_file != "")
  179. X            send format("write_mapwin_file %s\n",
  180. X                                     write_mapwin_file);
  181. X        if (read_mapwin_file != "")
  182. X            send format("read_mapwin_file %s\n",
  183. X                                     read_mapwin_file);
  184. X        send "end_input\n";
  185. X    }
  186. X   end_button
  187. X   button
  188. X      normal    " Save/Load file " display out_file_dialog;
  189. X   end_button
  190. X   button
  191. X      normal    " Close "    close;
  192. X      shift    " Quit "    exit;
  193. X   end_button
  194. Xend_gadgets
  195. X
  196. Xdialog chart_dialog
  197. X    gadgets
  198. X       left
  199. X       label
  200. X          "Specify Center:" : "/usr/lib/fonts/fixedwidthfonts/cour.b.14"
  201. X       end_label
  202. X       text ra
  203. X        label "Right Ascension:"
  204. X        display 20
  205. X        action {
  206. X            constellation_name = "";
  207. X            find_set = FALSE;
  208. X            ra_set = TRUE;
  209. X        }
  210. X       end_text
  211. X       text dec
  212. X        label "Dec.:"
  213. X        display 20
  214. X        action {
  215. X            constellation_name = "";
  216. X            find_set = FALSE;
  217. X            dec_set = TRUE;
  218. X        }
  219. X       end_text
  220. X       text scale
  221. X        label "Scale:"
  222. X        display 20
  223. X        action {
  224. X            constellation_name = "";
  225. X            find_set = FALSE;
  226. X            scale_set = TRUE;
  227. X        }
  228. X       end_text
  229. X       text title
  230. X          label "Title:"
  231. X          display 20
  232. X          action title_set = TRUE;
  233. X       end_text    
  234. X       label
  235. X          "Or specify constellation from file:" : "/usr/lib/fonts/fixedwidthfonts/cour.b.14"
  236. X       end_label
  237. X       text constellation_name
  238. X          label "Constellation:"
  239. X          display 20
  240. X          action {
  241. X        ra = "";
  242. X        dec = "";
  243. X        scale = "";
  244. X        ra_set = dec_set = scale_set = FALSE;
  245. X        find_set = TRUE;
  246. X          }
  247. X       end_text    
  248. X       text constfile
  249. X          label "Constellation lookup file:"
  250. X          display 20
  251. X       end_text    
  252. X       label
  253. X          ""
  254. X       end_label
  255. X       choice invert
  256. X        display cycle
  257. X        label "invert"
  258. X        "Normal"    nothing;    
  259. X        "Inverted"    nothing;    
  260. X       end_choice
  261. X       button
  262. X          normal    "done"    remove chart_dialog;
  263. X       end_button
  264. X/* would like "apply constellation, cancel and ok buttons */
  265. X    end_gadgets
  266. Xend_dialog
  267. X
  268. Xdialog type_dialog
  269. X    gadgets
  270. X       left
  271. X       ragged
  272. X       choice
  273. X        display vertical
  274. X            label "Chart Type"
  275. X        "Main Chart + Thumbnail"    chart_type = "threepart";
  276. X        "Full Page"    chart_type = "fullpage";
  277. X       end_choice
  278. X       button
  279. X          normal    "done"    remove type_dialog;
  280. X       end_button
  281. X    end_gadgets
  282. Xend_dialog
  283. X
  284. Xdialog mag_dialog
  285. X    gadgets
  286. X       left
  287. X       ragged
  288. X       text namelim
  289. X        label "Mag limit for object names:"
  290. X        display 20
  291. X        action {
  292. X            namelim_set = TRUE;
  293. X        }
  294. X       end_text
  295. X       text gklim
  296. X        label "Mag limit for bayer labels:"
  297. X        display 20
  298. X        action {
  299. X            gklim_set = TRUE;
  300. X        }
  301. X       end_text
  302. X       text maglim
  303. X        label "Mag limit for object visibility:"
  304. X        display 20
  305. X        action {
  306. X            maglim_set = TRUE;
  307. X        }
  308. X       end_text
  309. X       button
  310. X          normal    "done"    remove mag_dialog;
  311. X       end_button
  312. X    end_gadgets
  313. Xend_dialog
  314. X
  315. Xdialog layer_dialog
  316. X    gadgets
  317. X    left
  318. X    ragged
  319. X    choice
  320. X    display cycle
  321. X        "None"        layer[0] = "";
  322. X        "Outline"    layer[0] = "outline";
  323. X        "RA_Grid"    layer[0] = "ra_grid";
  324. X        "Dec_Grid"    layer[0] = "dec_grid";
  325. X        "Ecliptic"    layer[0] = "ecliptic";
  326. X        "Boundaries"    layer[0] = "boundaries";
  327. X        "Patterns"    layer[0] = "patterns";
  328. X        "Constlnames"    layer[0] = "constlnames";
  329. X        "Allfiles"    layer[0] = "allfiles";
  330. X        "Allglyphs"    layer[0] = "allglyphs";
  331. X        "Allnames"    layer[0] = "allnames";
  332. X        "Allmaglbls"    layer[0] = "allmaglbls";
  333. X        "Allvectors"    layer[0] = "allvectors";
  334. X        "Allareas"    layer[0] = "allareas";
  335. X        "Legends"    layer[0] = "legends";
  336. X       end_choice
  337. X    choice
  338. X    display cycle
  339. X        "None"        layer[1] = "";
  340. X        "Outline"    layer[1] = "outline";
  341. X        "RA_Grid"    layer[1] = "ra_grid";
  342. X        "Dec_Grid"    layer[1] = "dec_grid";
  343. X        "Ecliptic"    layer[1] = "ecliptic";
  344. X        "Boundaries"    layer[1] = "boundaries";
  345. X        "Patterns"    layer[1] = "patterns";
  346. X        "Constlnames"    layer[1] = "constlnames";
  347. X        "Allfiles"    layer[1] = "allfiles";
  348. X        "Allglyphs"    layer[1] = "allglyphs";
  349. X        "Allnames"    layer[1] = "allnames";
  350. X        "Allmaglbls"    layer[1] = "allmaglbls";
  351. X        "Allvectors"    layer[1] = "allvectors";
  352. X        "Allareas"    layer[1] = "allareas";
  353. X        "Legends"    layer[1] = "legends";
  354. X       end_choice
  355. X    choice
  356. X    display cycle
  357. X        "None"        layer[2] = "";
  358. X        "Outline"    layer[2] = "outline";
  359. X        "RA_Grid"    layer[2] = "ra_grid";
  360. X        "Dec_Grid"    layer[2] = "dec_grid";
  361. X        "Ecliptic"    layer[2] = "ecliptic";
  362. X        "Boundaries"    layer[2] = "boundaries";
  363. X        "Patterns"    layer[2] = "patterns";
  364. X        "Constlnames"    layer[2] = "constlnames";
  365. X        "Allfiles"    layer[2] = "allfiles";
  366. X        "Allglyphs"    layer[2] = "allglyphs";
  367. X        "Allnames"    layer[2] = "allnames";
  368. X        "Allmaglbls"    layer[2] = "allmaglbls";
  369. X        "Allvectors"    layer[2] = "allvectors";
  370. X        "Allareas"    layer[2] = "allareas";
  371. X        "Legends"    layer[2] = "legends";
  372. X       end_choice
  373. X    choice
  374. X    display cycle
  375. X        "None"        layer[3] = "";
  376. X        "Outline"    layer[3] = "outline";
  377. X        "RA_Grid"    layer[3] = "ra_grid";
  378. X        "Dec_Grid"    layer[3] = "dec_grid";
  379. X        "Ecliptic"    layer[3] = "ecliptic";
  380. X        "Boundaries"    layer[3] = "boundaries";
  381. X        "Patterns"    layer[3] = "patterns";
  382. X        "Constlnames"    layer[3] = "constlnames";
  383. X        "Allfiles"    layer[3] = "allfiles";
  384. X        "Allglyphs"    layer[3] = "allglyphs";
  385. X        "Allnames"    layer[3] = "allnames";
  386. X        "Allmaglbls"    layer[3] = "allmaglbls";
  387. X        "Allvectors"    layer[3] = "allvectors";
  388. X        "Allareas"    layer[3] = "allareas";
  389. X        "Legends"    layer[3] = "legends";
  390. X       end_choice
  391. X    choice
  392. X    display cycle
  393. X        "None"        layer[4] = "";
  394. X        "Outline"    layer[4] = "outline";
  395. X        "RA_Grid"    layer[4] = "ra_grid";
  396. X        "Dec_Grid"    layer[4] = "dec_grid";
  397. X        "Ecliptic"    layer[4] = "ecliptic";
  398. X        "Boundaries"    layer[4] = "boundaries";
  399. X        "Patterns"    layer[4] = "patterns";
  400. X        "Constlnames"    layer[4] = "constlnames";
  401. X        "Allfiles"    layer[4] = "allfiles";
  402. X        "Allglyphs"    layer[4] = "allglyphs";
  403. X        "Allnames"    layer[4] = "allnames";
  404. X        "Allmaglbls"    layer[4] = "allmaglbls";
  405. X        "Allvectors"    layer[4] = "allvectors";
  406. X        "Allareas"    layer[4] = "allareas";
  407. X        "Legends"    layer[4] = "legends";
  408. X       end_choice
  409. X    choice
  410. X    display cycle
  411. X        "None"        layer[5] = "";
  412. X        "Outline"    layer[5] = "outline";
  413. X        "RA_Grid"    layer[5] = "ra_grid";
  414. X        "Dec_Grid"    layer[5] = "dec_grid";
  415. X        "Ecliptic"    layer[5] = "ecliptic";
  416. X        "Boundaries"    layer[5] = "boundaries";
  417. X        "Patterns"    layer[5] = "patterns";
  418. X        "Constlnames"    layer[5] = "constlnames";
  419. X        "Allfiles"    layer[5] = "allfiles";
  420. X        "Allglyphs"    layer[5] = "allglyphs";
  421. X        "Allnames"    layer[5] = "allnames";
  422. X        "Allmaglbls"    layer[5] = "allmaglbls";
  423. X        "Allvectors"    layer[5] = "allvectors";
  424. X        "Allareas"    layer[5] = "allareas";
  425. X        "Legends"    layer[5] = "legends";
  426. X       end_choice
  427. X    choice
  428. X    display cycle
  429. X        "None"        layer[6] = "";
  430. X        "Outline"    layer[6] = "outline";
  431. X        "RA_Grid"    layer[6] = "ra_grid";
  432. X        "Dec_Grid"    layer[6] = "dec_grid";
  433. X        "Ecliptic"    layer[6] = "ecliptic";
  434. X        "Boundaries"    layer[6] = "boundaries";
  435. X        "Patterns"    layer[6] = "patterns";
  436. X        "Constlnames"    layer[6] = "constlnames";
  437. X        "Allfiles"    layer[6] = "allfiles";
  438. X        "Allglyphs"    layer[6] = "allglyphs";
  439. X        "Allnames"    layer[6] = "allnames";
  440. X        "Allmaglbls"    layer[6] = "allmaglbls";
  441. X        "Allvectors"    layer[6] = "allvectors";
  442. X        "Allareas"    layer[6] = "allareas";
  443. X        "Legends"    layer[6] = "legends";
  444. X       end_choice
  445. X    choice
  446. X    display cycle
  447. X        "None"        layer[7] = "";
  448. X        "Outline"    layer[7] = "outline";
  449. X        "RA_Grid"    layer[7] = "ra_grid";
  450. X        "Dec_Grid"    layer[7] = "dec_grid";
  451. X        "Ecliptic"    layer[7] = "ecliptic";
  452. X        "Boundaries"    layer[7] = "boundaries";
  453. X        "Patterns"    layer[7] = "patterns";
  454. X        "Constlnames"    layer[7] = "constlnames";
  455. X        "Allfiles"    layer[7] = "allfiles";
  456. X        "Allglyphs"    layer[7] = "allglyphs";
  457. X        "Allnames"    layer[7] = "allnames";
  458. X        "Allmaglbls"    layer[7] = "allmaglbls";
  459. X        "Allvectors"    layer[7] = "allvectors";
  460. X        "Allareas"    layer[7] = "allareas";
  461. X        "Legends"    layer[7] = "legends";
  462. X       end_choice
  463. X    choice
  464. X    display cycle
  465. X        "None"        layer[8] = "";
  466. X        "Outline"    layer[8] = "outline";
  467. X        "RA_Grid"    layer[8] = "ra_grid";
  468. X        "Dec_Grid"    layer[8] = "dec_grid";
  469. X        "Ecliptic"    layer[8] = "ecliptic";
  470. X        "Boundaries"    layer[8] = "boundaries";
  471. X        "Patterns"    layer[8] = "patterns";
  472. X        "Constlnames"    layer[8] = "constlnames";
  473. X        "Allfiles"    layer[8] = "allfiles";
  474. X        "Allglyphs"    layer[8] = "allglyphs";
  475. X        "Allnames"    layer[8] = "allnames";
  476. X        "Allmaglbls"    layer[8] = "allmaglbls";
  477. X        "Allvectors"    layer[8] = "allvectors";
  478. X        "Allareas"    layer[8] = "allareas";
  479. X        "Legends"    layer[8] = "legends";
  480. X       end_choice
  481. X    choice
  482. X    display cycle
  483. X        "None"        layer[9] = "";
  484. X        "Outline"    layer[9] = "outline";
  485. X        "RA_Grid"    layer[9] = "ra_grid";
  486. X        "Dec_Grid"    layer[9] = "dec_grid";
  487. X        "Ecliptic"    layer[9] = "ecliptic";
  488. X        "Boundaries"    layer[9] = "boundaries";
  489. X        "Patterns"    layer[9] = "patterns";
  490. X        "Constlnames"    layer[9] = "constlnames";
  491. X        "Allfiles"    layer[9] = "allfiles";
  492. X        "Allglyphs"    layer[9] = "allglyphs";
  493. X        "Allnames"    layer[9] = "allnames";
  494. X        "Allmaglbls"    layer[9] = "allmaglbls";
  495. X        "Allvectors"    layer[9] = "allvectors";
  496. X        "Allareas"    layer[9] = "allareas";
  497. X        "Legends"    layer[9] = "legends";
  498. X       end_choice
  499. X    choice
  500. X    display cycle
  501. X        "None"        layer[10] = "";
  502. X        "Outline"    layer[10] = "outline";
  503. X        "RA_Grid"    layer[10] = "ra_grid";
  504. X        "Dec_Grid"    layer[10] = "dec_grid";
  505. X        "Ecliptic"    layer[10] = "ecliptic";
  506. X        "Boundaries"    layer[10] = "boundaries";
  507. X        "Patterns"    layer[10] = "patterns";
  508. X        "Constlnames"    layer[10] = "constlnames";
  509. X        "Allfiles"    layer[10] = "allfiles";
  510. X        "Allglyphs"    layer[10] = "allglyphs";
  511. X        "Allnames"    layer[10] = "allnames";
  512. X        "Allmaglbls"    layer[10] = "allmaglbls";
  513. X        "Allvectors"    layer[10] = "allvectors";
  514. X        "Allareas"    layer[10] = "allareas";
  515. X        "Legends"    layer[10] = "legends";
  516. X       end_choice
  517. X    choice
  518. X    display cycle
  519. X        "None"        layer[11] = "";
  520. X        "Outline"    layer[11] = "outline";
  521. X        "RA_Grid"    layer[11] = "ra_grid";
  522. X        "Dec_Grid"    layer[11] = "dec_grid";
  523. X        "Ecliptic"    layer[11] = "ecliptic";
  524. X        "Boundaries"    layer[11] = "boundaries";
  525. X        "Patterns"    layer[11] = "patterns";
  526. X        "Constlnames"    layer[11] = "constlnames";
  527. X        "Allfiles"    layer[11] = "allfiles";
  528. X        "Allglyphs"    layer[11] = "allglyphs";
  529. X        "Allnames"    layer[11] = "allnames";
  530. X        "Allmaglbls"    layer[11] = "allmaglbls";
  531. X        "Allvectors"    layer[11] = "allvectors";
  532. X        "Allareas"    layer[11] = "allareas";
  533. X        "Legends"    layer[11] = "legends";
  534. X       end_choice
  535. X    choice
  536. X    display cycle
  537. X        "None"        layer[12] = "";
  538. X        "Outline"    layer[12] = "outline";
  539. X        "RA_Grid"    layer[12] = "ra_grid";
  540. X        "Dec_Grid"    layer[12] = "dec_grid";
  541. X        "Ecliptic"    layer[12] = "ecliptic";
  542. X        "Boundaries"    layer[12] = "boundaries";
  543. X        "Patterns"    layer[12] = "patterns";
  544. X        "Constlnames"    layer[12] = "constlnames";
  545. X        "Allfiles"    layer[12] = "allfiles";
  546. X        "Allglyphs"    layer[12] = "allglyphs";
  547. X        "Allnames"    layer[12] = "allnames";
  548. X        "Allmaglbls"    layer[12] = "allmaglbls";
  549. X        "Allvectors"    layer[12] = "allvectors";
  550. X        "Allareas"    layer[12] = "allareas";
  551. X        "Legends"    layer[12] = "legends";
  552. X       end_choice
  553. X    choice
  554. X    display cycle
  555. X        "None"        layer[13] = "";
  556. X        "Outline"    layer[13] = "outline";
  557. X        "RA_Grid"    layer[13] = "ra_grid";
  558. X        "Dec_Grid"    layer[13] = "dec_grid";
  559. X        "Ecliptic"    layer[13] = "ecliptic";
  560. X        "Boundaries"    layer[13] = "boundaries";
  561. X        "Patterns"    layer[13] = "patterns";
  562. X        "Constlnames"    layer[13] = "constlnames";
  563. X        "Allfiles"    layer[13] = "allfiles";
  564. X        "Allglyphs"    layer[13] = "allglyphs";
  565. X        "Allnames"    layer[13] = "allnames";
  566. X        "Allmaglbls"    layer[13] = "allmaglbls";
  567. X        "Allvectors"    layer[13] = "allvectors";
  568. X        "Allareas"    layer[13] = "allareas";
  569. X        "Legends"    layer[13] = "legends";
  570. X       end_choice
  571. X    choice
  572. X    display cycle
  573. X        "None"        layer[14] = "";
  574. X        "Outline"    layer[14] = "outline";
  575. X        "RA_Grid"    layer[14] = "ra_grid";
  576. X        "Dec_Grid"    layer[14] = "dec_grid";
  577. X        "Ecliptic"    layer[14] = "ecliptic";
  578. X        "Boundaries"    layer[14] = "boundaries";
  579. X        "Patterns"    layer[14] = "patterns";
  580. X        "Constlnames"    layer[14] = "constlnames";
  581. X        "Allfiles"    layer[14] = "allfiles";
  582. X        "Allglyphs"    layer[14] = "allglyphs";
  583. X        "Allnames"    layer[14] = "allnames";
  584. X        "Allmaglbls"    layer[14] = "allmaglbls";
  585. X        "Allvectors"    layer[14] = "allvectors";
  586. X        "Allareas"    layer[14] = "allareas";
  587. X        "Legends"    layer[14] = "legends";
  588. X       end_choice
  589. X    choice
  590. X    display cycle
  591. X        "None"        layer[15] = "";
  592. X        "Outline"    layer[15] = "outline";
  593. X        "RA_Grid"    layer[15] = "ra_grid";
  594. X        "Dec_Grid"    layer[15] = "dec_grid";
  595. X        "Ecliptic"    layer[15] = "ecliptic";
  596. X        "Boundaries"    layer[15] = "boundaries";
  597. X        "Patterns"    layer[15] = "patterns";
  598. X        "Constlnames"    layer[15] = "constlnames";
  599. X        "Allfiles"    layer[15] = "allfiles";
  600. X        "Allglyphs"    layer[15] = "allglyphs";
  601. X        "Allnames"    layer[15] = "allnames";
  602. X        "Allmaglbls"    layer[15] = "allmaglbls";
  603. X        "Allvectors"    layer[15] = "allvectors";
  604. X        "Allareas"    layer[15] = "allareas";
  605. X        "Legends"    layer[15] = "legends";
  606. X       end_choice
  607. X    choice
  608. X    display cycle
  609. X        "None"        layer[16] = "";
  610. X        "Outline"    layer[16] = "outline";
  611. X        "RA_Grid"    layer[16] = "ra_grid";
  612. X        "Dec_Grid"    layer[16] = "dec_grid";
  613. X        "Ecliptic"    layer[16] = "ecliptic";
  614. X        "Boundaries"    layer[16] = "boundaries";
  615. X        "Patterns"    layer[16] = "patterns";
  616. X        "Constlnames"    layer[16] = "constlnames";
  617. X        "Allfiles"    layer[16] = "allfiles";
  618. X        "Allglyphs"    layer[16] = "allglyphs";
  619. X        "Allnames"    layer[16] = "allnames";
  620. X        "Allmaglbls"    layer[16] = "allmaglbls";
  621. X        "Allvectors"    layer[16] = "allvectors";
  622. X        "Allareas"    layer[16] = "allareas";
  623. X        "Legends"    layer[16] = "legends";
  624. X       end_choice
  625. X    choice
  626. X    display cycle
  627. X        "None"        layer[17] = "";
  628. X        "Outline"    layer[17] = "outline";
  629. X        "RA_Grid"    layer[17] = "ra_grid";
  630. X        "Dec_Grid"    layer[17] = "dec_grid";
  631. X        "Ecliptic"    layer[17] = "ecliptic";
  632. X        "Boundaries"    layer[17] = "boundaries";
  633. X        "Patterns"    layer[17] = "patterns";
  634. X        "Constlnames"    layer[17] = "constlnames";
  635. X        "Allfiles"    layer[17] = "allfiles";
  636. X        "Allglyphs"    layer[17] = "allglyphs";
  637. X        "Allnames"    layer[17] = "allnames";
  638. X        "Allmaglbls"    layer[17] = "allmaglbls";
  639. X        "Allvectors"    layer[17] = "allvectors";
  640. X        "Allareas"    layer[17] = "allareas";
  641. X        "Legends"    layer[17] = "legends";
  642. X       end_choice
  643. X    choice
  644. X    display cycle
  645. X        "None"        layer[18] = "";
  646. X        "Outline"    layer[18] = "outline";
  647. X        "RA_Grid"    layer[18] = "ra_grid";
  648. X        "Dec_Grid"    layer[18] = "dec_grid";
  649. X        "Ecliptic"    layer[18] = "ecliptic";
  650. X        "Boundaries"    layer[18] = "boundaries";
  651. X        "Patterns"    layer[18] = "patterns";
  652. X        "Constlnames"    layer[18] = "constlnames";
  653. X        "Allfiles"    layer[18] = "allfiles";
  654. X        "Allglyphs"    layer[18] = "allglyphs";
  655. X        "Allnames"    layer[18] = "allnames";
  656. X        "Allmaglbls"    layer[18] = "allmaglbls";
  657. X        "Allvectors"    layer[18] = "allvectors";
  658. X        "Allareas"    layer[18] = "allareas";
  659. X        "Legends"    layer[18] = "legends";
  660. X       end_choice
  661. X    choice
  662. X    display cycle
  663. X        "None"        layer[19] = "";
  664. X        "Outline"    layer[19] = "outline";
  665. X        "RA_Grid"    layer[19] = "ra_grid";
  666. X        "Dec_Grid"    layer[19] = "dec_grid";
  667. X        "Ecliptic"    layer[19] = "ecliptic";
  668. X        "Boundaries"    layer[19] = "boundaries";
  669. X        "Patterns"    layer[19] = "patterns";
  670. X        "Constlnames"    layer[19] = "constlnames";
  671. X        "Allfiles"    layer[19] = "allfiles";
  672. X        "Allglyphs"    layer[19] = "allglyphs";
  673. X        "Allnames"    layer[19] = "allnames";
  674. X        "Allmaglbls"    layer[19] = "allmaglbls";
  675. X        "Allvectors"    layer[19] = "allvectors";
  676. X        "Allareas"    layer[19] = "allareas";
  677. X        "Legends"    layer[19] = "legends";
  678. X       end_choice
  679. X    choice
  680. X    display cycle
  681. X        "None"        layer[20] = "";
  682. X        "Outline"    layer[20] = "outline";
  683. X        "RA_Grid"    layer[20] = "ra_grid";
  684. X        "Dec_Grid"    layer[20] = "dec_grid";
  685. X        "Ecliptic"    layer[20] = "ecliptic";
  686. X        "Boundaries"    layer[20] = "boundaries";
  687. X        "Patterns"    layer[20] = "patterns";
  688. X        "Constlnames"    layer[20] = "constlnames";
  689. X        "Allfiles"    layer[20] = "allfiles";
  690. X        "Allglyphs"    layer[20] = "allglyphs";
  691. X        "Allnames"    layer[20] = "allnames";
  692. X        "Allmaglbls"    layer[20] = "allmaglbls";
  693. X        "Allvectors"    layer[20] = "allvectors";
  694. X        "Allareas"    layer[20] = "allareas";
  695. X        "Legends"    layer[20] = "legends";
  696. X       end_choice
  697. X       button
  698. X          normal    "done"    remove layer_dialog;
  699. X       end_button
  700. X    end_gadgets
  701. Xend_dialog
  702. X
  703. Xdialog proj_dialog
  704. X    gadgets
  705. X       ragged
  706. X       choice proj_choice
  707. X        display vertical
  708. X        label "Projection Mode"
  709. X        "Sansons"    projection_mode = "sansons";
  710. X        "Stereographic"    projection_mode = "Stereographic";
  711. X        "Orthographic"    projection_mode = "Orthographic";
  712. X        "Gnomonic"    projection_mode = "Gnomonic";
  713. X       end_choice
  714. X       button
  715. X          normal    "done"    remove proj_dialog;
  716. X       end_button
  717. X    end_gadgets
  718. Xend_dialog
  719. X
  720. Xdialog sfiles_dialog
  721. X    size 24 by 90 characters
  722. X    gadgets
  723. X       align center
  724. X           ragged
  725. X       text starfile
  726. X        label "Star File:"
  727. X        display 38
  728. X       end_text
  729. X       choice
  730. X        display cycle
  731. X        label "Type"
  732. X        "Default"    startype =  "";
  733. X        "Index"        startype =  "INDEXTYPE";
  734. X        "Full Binary format"    startype =  "BINFULL";
  735. X        "Object only Binary format"    startype =  "BINOBJ";
  736. X        "Star only Binary format"    startype =  "BINSTAR";
  737. X        "SAO format"    startype =  "SAOFORMAT";
  738. X       end_choice        
  739. X       text indexfile
  740. X        label "Index File:"
  741. X        display 37
  742. X       end_text
  743. X       choice
  744. X        display cycle
  745. X        label "Type"
  746. X        "Index"        indextype =  "INDEXTYPE";
  747. X        "Full Binary format"    indextype =  "BINFULL";
  748. X        "Object only Binary format"    indextype =  "BINOBJ";
  749. X        "Star only Binary format"    indextype =  "BINSTAR";
  750. X        "SAO format"    indextype =  "SAOFORMAT";
  751. X        "Default"    indextype =  "";
  752. X       end_choice        
  753. X       text nebfile
  754. X        label "Nebula File:"
  755. X        display 36
  756. X       end_text
  757. X       choice
  758. X        display cycle
  759. X        label "Type"
  760. X        "Default"    nebtype =  "";
  761. X        "Index"        nebtype =  "INDEXTYPE";
  762. X        "Full Binary format"    nebtype =  "BINFULL";
  763. X        "Object only Binary format"    nebtype =  "BINOBJ";
  764. X        "Star only Binary format"    nebtype =  "BINSTAR";
  765. X        "SAO format"    nebtype =  "SAOFORMAT";
  766. X       end_choice        
  767. X       text planetfile
  768. X        label "Planet File:"
  769. X        display 36
  770. X       end_text
  771. X       choice
  772. X        display cycle
  773. X        label "Type"
  774. X        "Default"    plantype =  "";
  775. X        "Index"        plantype =  "INDEXTYPE";
  776. X        "Full Binary format"    plantype =  "BINFULL";
  777. X        "Object only Binary format"    plantype =  "BINOBJ";
  778. X        "Star only Binary format"    plantype =  "BINSTAR";
  779. X        "SAO format"    plantype =  "SAOFORMAT";
  780. X       end_choice        
  781. X       text boundfile
  782. X        label "Constellation Boundary File:"
  783. X        display 20
  784. X       end_text
  785. X       choice
  786. X        display cycle
  787. X        label "Type"
  788. X        "Default"    boundtype =  "";
  789. X        "Index"        boundtype =  "INDEXTYPE";
  790. X        "Full Binary format"    boundtype =  "BINFULL";
  791. X        "Object only Binary format"    boundtype =  "BINOBJ";
  792. X        "Star only Binary format"    boundtype =  "BINSTAR";
  793. X        "SAO format"    boundtype =  "SAOFORMAT";
  794. X       end_choice        
  795. X       text patternfile
  796. X        label "Constellation Pattern File:"
  797. X        display 21
  798. X       end_text
  799. X       choice
  800. X        display cycle
  801. X        label "Type"
  802. X        "Default"    patterntype =  "";
  803. X        "Index"        patterntype =  "INDEXTYPE";
  804. X        "Full Binary format"    patterntype =  "BINFULL";
  805. X        "Object only Binary format"    patterntype =  "BINOBJ";
  806. X        "Star only Binary format"    patterntype =  "BINSTAR";
  807. X        "SAO format"    patterntype =  "SAOFORMAT";
  808. X       end_choice        
  809. X       text constlnamefile
  810. X        label "Constellation Name File:"
  811. X        display 24
  812. X       end_text
  813. X       choice
  814. X        display cycle
  815. X        label "Type"
  816. X        "Default"    cnametype =  "";
  817. X        "Index"        cnametype =  "INDEXTYPE";
  818. X        "Full Binary format"    cnametype =  "BINFULL";
  819. X        "Object only Binary format"    cnametype =  "BINOBJ";
  820. X        "Star only Binary format"    cnametype =  "BINSTAR";
  821. X        "SAO format"    cnametype =  "SAOFORMAT";
  822. X       end_choice        
  823. X       text userfile0
  824. X        label "User File:"
  825. X        display 38
  826. X        action userfile[0] = userfile0;
  827. X       end_text
  828. X       choice
  829. X        display cycle
  830. X        label "Type"
  831. X        "Default"    usertype[0] =  "";
  832. X        "Index"        usertype[0] =  "INDEXTYPE";
  833. X        "Full Binary format"    usertype[0] =  "BINFULL";
  834. X        "Object only Binary format"    usertype[0] =  "BINOBJ";
  835. X        "Star only Binary format"    usertype[0] =  "BINSTAR";
  836. X        "SAO format"    usertype[0] =  "SAOFORMAT";
  837. X       end_choice        
  838. X       text userfile1
  839. X        label "User File:"
  840. X        display 38
  841. X        action userfile[1] = userfile1;
  842. X       end_text
  843. X       choice
  844. X        display cycle
  845. X        label "Type"
  846. X        "Default"    usertype[1] =  "";
  847. X        "Index"        usertype[1] =  "INDEXTYPE";
  848. X        "Full Binary format"    usertype[1] =  "BINFULL";
  849. X        "Object only Binary format"    usertype[1] =  "BINOBJ";
  850. X        "Star only Binary format"    usertype[1] =  "BINSTAR";
  851. X        "SAO format"    usertype[1] =  "SAOFORMAT";
  852. X       end_choice        
  853. X       text userfile2
  854. X        label "User File:"
  855. X        display 38
  856. X        action userfile[2] = userfile2;
  857. X       end_text
  858. X       choice
  859. X        display cycle
  860. X        label "Type"
  861. X        "Default"    usertype[2] =  "";
  862. X        "Index"        usertype[2] =  "INDEXTYPE";
  863. X        "Full Binary format"    usertype[2] =  "BINFULL";
  864. X        "Object only Binary format"    usertype[2] =  "BINOBJ";
  865. X        "Star only Binary format"    usertype[2] =  "BINSTAR";
  866. X        "SAO format"    usertype[2] =  "SAOFORMAT";
  867. X       end_choice        
  868. X       text userfile3
  869. X        label "User File:"
  870. X        display 38
  871. X        action userfile[3] = userfile3;
  872. X       end_text
  873. X       choice
  874. X        display cycle
  875. X        label "Type"
  876. X        "Default"    usertype[3] =  "";
  877. X        "Index"        usertype[3] =  "INDEXTYPE";
  878. X        "Full Binary format"    usertype[3] =  "BINFULL";
  879. X        "Object only Binary format"    usertype[3] =  "BINOBJ";
  880. X        "Star only Binary format"    usertype[3] =  "BINSTAR";
  881. X        "SAO format"    usertype[3] =  "SAOFORMAT";
  882. X       end_choice        
  883. X       text userfile4
  884. X        label "User File:"
  885. X        display 38
  886. X        action userfile[4] = userfile4;
  887. X       end_text
  888. X       choice
  889. X        display cycle
  890. X        label "Type"
  891. X        "Default"    usertype[4] =  "";
  892. X        "Index"        usertype[4] =  "INDEXTYPE";
  893. X        "Full Binary format"    usertype[4] =  "BINFULL";
  894. X        "Object only Binary format"    usertype[4] =  "BINOBJ";
  895. X        "Star only Binary format"    usertype[4] =  "BINSTAR";
  896. X        "SAO format"    usertype[4] =  "SAOFORMAT";
  897. X       end_choice        
  898. X       text userfile5
  899. X        label "User File:"
  900. X        display 38
  901. X        action userfile[5] = userfile5;
  902. X       end_text
  903. X       choice
  904. X        display cycle
  905. X        label "Type"
  906. X        "Default"    usertype[5] =  "";
  907. X        "Index"        usertype[5] =  "INDEXTYPE";
  908. X        "Full Binary format"    usertype[5] =  "BINFULL";
  909. X        "Object only Binary format"    usertype[5] =  "BINOBJ";
  910. X        "Star only Binary format"    usertype[5] =  "BINSTAR";
  911. X        "SAO format"    usertype[5] =  "SAOFORMAT";
  912. X       end_choice        
  913. X       text userfile6
  914. X        label "User File:"
  915. X        display 38
  916. X        action userfile[6] = userfile6;
  917. X       end_text
  918. X       choice
  919. X        display cycle
  920. X        label "Type"
  921. X        "Default"    usertype[6] =  "";
  922. X        "Index"        usertype[6] =  "INDEXTYPE";
  923. X        "Full Binary format"    usertype[6] =  "BINFULL";
  924. X        "Object only Binary format"    usertype[6] =  "BINOBJ";
  925. X        "Star only Binary format"    usertype[6] =  "BINSTAR";
  926. X        "SAO format"    usertype[6] =  "SAOFORMAT";
  927. X       end_choice        
  928. X       text userfile7
  929. X        label "User File:"
  930. X        display 38
  931. X        action userfile[7] = userfile7;
  932. X       end_text
  933. X       choice
  934. X        display cycle
  935. X        label "Type"
  936. X        "Default"    usertype[7] =  "";
  937. X        "Index"        usertype[7] =  "INDEXTYPE";
  938. X        "Full Binary format"    usertype[7] =  "BINFULL";
  939. X        "Object only Binary format"    usertype[7] =  "BINOBJ";
  940. X        "Star only Binary format"    usertype[7] =  "BINSTAR";
  941. X        "SAO format"    usertype[7] =  "SAOFORMAT";
  942. X       end_choice        
  943. X       text userfile8
  944. X        label "User File:"
  945. X        display 38
  946. X        action userfile[8] = userfile8;
  947. X       end_text
  948. X       choice
  949. X        display cycle
  950. X        label "Type"
  951. X        "Default"    usertype[8] =  "";
  952. X        "Index"        usertype[8] =  "INDEXTYPE";
  953. X        "Full Binary format"    usertype[8] =  "BINFULL";
  954. X        "Object only Binary format"    usertype[8] =  "BINOBJ";
  955. X        "Star only Binary format"    usertype[8] =  "BINSTAR";
  956. X        "SAO format"    usertype[8] =  "SAOFORMAT";
  957. X       end_choice        
  958. X       text userfile9
  959. X        label "User File:"
  960. X        display 38
  961. X        action userfile[9] = userfile9;
  962. X       end_text
  963. X       choice
  964. X        display cycle
  965. X        label "Type"
  966. X        "Default"    usertype[9] =  "";
  967. X        "Index"        usertype[9] =  "INDEXTYPE";
  968. X        "Full Binary format"    usertype[9] =  "BINFULL";
  969. X        "Object only Binary format"    usertype[9] =  "BINOBJ";
  970. X        "Star only Binary format"    usertype[9] =  "BINSTAR";
  971. X        "SAO format"    usertype[9] =  "SAOFORMAT";
  972. X       end_choice        
  973. X       button
  974. X          normal    "done"    remove sfiles_dialog;
  975. X       end_button
  976. X    end_gadgets
  977. Xend_dialog
  978. X
  979. Xdialog files_dialog
  980. X    gadgets
  981. X       ragged
  982. X       text mapfile0
  983. X        label "File:"
  984. X        display 20
  985. X        action mapfile[0] = mapfile0;
  986. X       end_text
  987. X       choice
  988. X        display cycle
  989. X        label "Type"
  990. X        "Default"    maptype[0] =  "";
  991. X        "Index"        maptype[0] =  "INDEXTYPE";
  992. X        "Full Binary format"    maptype[0] =  "BINFULL";
  993. X        "Object only Binary format"    maptype[0] =  "BINOBJ";
  994. X        "Star only Binary format"    maptype[0] =  "BINSTAR";
  995. X        "SAO format"    maptype[0] =  "SAOFORMAT";
  996. X       end_choice        
  997. X       text mapfile1
  998. X        label "File:"
  999. X        display 20
  1000. X        action mapfile[1] = mapfile1;
  1001. X       end_text
  1002. X       choice
  1003. X        display cycle
  1004. X        label "Type"
  1005. X        "Default"    maptype[1] =  "";
  1006. X        "Index"        maptype[1] =  "INDEXTYPE";
  1007. X        "Full Binary format"    maptype[1] =  "BINFULL";
  1008. X        "Object only Binary format"    maptype[1] =  "BINOBJ";
  1009. X        "Star only Binary format"    maptype[1] =  "BINSTAR";
  1010. X        "SAO format"    maptype[1] =  "SAOFORMAT";
  1011. X       end_choice        
  1012. X       text mapfile2
  1013. X        label "File:"
  1014. X        display 20
  1015. X        action mapfile[2] = mapfile2;
  1016. X       end_text
  1017. X       choice
  1018. X        display cycle
  1019. X        label "Type"
  1020. X        "Default"    maptype[2] =  "";
  1021. X        "Index"        maptype[2] =  "INDEXTYPE";
  1022. X        "Full Binary format"    maptype[2] =  "BINFULL";
  1023. X        "Object only Binary format"    maptype[2] =  "BINOBJ";
  1024. X        "Star only Binary format"    maptype[2] =  "BINSTAR";
  1025. X        "SAO format"    maptype[2] =  "SAOFORMAT";
  1026. X       end_choice        
  1027. X       text mapfile3
  1028. X        label "File:"
  1029. X        display 20
  1030. X        action mapfile[3] = mapfile3;
  1031. X       end_text
  1032. X       choice
  1033. X        display cycle
  1034. X        label "Type"
  1035. X        "Default"    maptype[3] =  "";
  1036. X        "Index"        maptype[3] =  "INDEXTYPE";
  1037. X        "Full Binary format"    maptype[3] =  "BINFULL";
  1038. X        "Object only Binary format"    maptype[3] =  "BINOBJ";
  1039. X        "Star only Binary format"    maptype[3] =  "BINSTAR";
  1040. X        "SAO format"    maptype[3] =  "SAOFORMAT";
  1041. X       end_choice        
  1042. X       text mapfile4
  1043. X        label "File:"
  1044. X        display 20
  1045. X        action mapfile[4] = mapfile4;
  1046. X       end_text
  1047. X       choice
  1048. X        display cycle
  1049. X        label "Type"
  1050. X        "Default"    maptype[4] =  "";
  1051. X        "Index"        maptype[4] =  "INDEXTYPE";
  1052. X        "Full Binary format"    maptype[4] =  "BINFULL";
  1053. X        "Object only Binary format"    maptype[4] =  "BINOBJ";
  1054. X        "Star only Binary format"    maptype[4] =  "BINSTAR";
  1055. X        "SAO format"    maptype[4] =  "SAOFORMAT";
  1056. X       end_choice        
  1057. X       text mapfile5
  1058. X        label "File:"
  1059. X        display 20
  1060. X        action mapfile[5] = mapfile5;
  1061. X       end_text
  1062. X       choice
  1063. X        display cycle
  1064. X        label "Type"
  1065. X        "Default"    maptype[5] =  "";
  1066. X        "Index"        maptype[5] =  "INDEXTYPE";
  1067. X        "Full Binary format"    maptype[5] =  "BINFULL";
  1068. X        "Object only Binary format"    maptype[5] =  "BINOBJ";
  1069. X        "Star only Binary format"    maptype[5] =  "BINSTAR";
  1070. X        "SAO format"    maptype[5] =  "SAOFORMAT";
  1071. X       end_choice        
  1072. X       text mapfile6
  1073. X        label "File:"
  1074. X        display 20
  1075. X        action mapfile[6] = mapfile6;
  1076. X       end_text
  1077. X       choice
  1078. X        display cycle
  1079. X        label "Type"
  1080. X        "Default"    maptype[6] =  "";
  1081. X        "Index"        maptype[6] =  "INDEXTYPE";
  1082. X        "Full Binary format"    maptype[6] =  "BINFULL";
  1083. X        "Object only Binary format"    maptype[6] =  "BINOBJ";
  1084. X        "Star only Binary format"    maptype[6] =  "BINSTAR";
  1085. X        "SAO format"    maptype[6] =  "SAOFORMAT";
  1086. X       end_choice        
  1087. X       text mapfile7
  1088. X        label "File:"
  1089. X        display 20
  1090. X        action mapfile[7] = mapfile7;
  1091. X       end_text
  1092. X       choice
  1093. X        display cycle
  1094. X        label "Type"
  1095. X        "Default"    maptype[7] =  "";
  1096. X        "Index"        maptype[7] =  "INDEXTYPE";
  1097. X        "Full Binary format"    maptype[7] =  "BINFULL";
  1098. X        "Object only Binary format"    maptype[7] =  "BINOBJ";
  1099. X        "Star only Binary format"    maptype[7] =  "BINSTAR";
  1100. X        "SAO format"    maptype[7] =  "SAOFORMAT";
  1101. X       end_choice        
  1102. X       text mapfile8
  1103. X        label "File:"
  1104. X        display 20
  1105. X        action mapfile[8] = mapfile8;
  1106. X       end_text
  1107. X       choice
  1108. X        display cycle
  1109. X        label "Type"
  1110. X        "Default"    maptype[8] =  "";
  1111. X        "Index"        maptype[8] =  "INDEXTYPE";
  1112. X        "Full Binary format"    maptype[8] =  "BINFULL";
  1113. X        "Object only Binary format"    maptype[8] =  "BINOBJ";
  1114. X        "Star only Binary format"    maptype[8] =  "BINSTAR";
  1115. X        "SAO format"    maptype[8] =  "SAOFORMAT";
  1116. X       end_choice        
  1117. X       text mapfile9
  1118. X        label "File:"
  1119. X        display 20
  1120. X        action mapfile[9] = mapfile9;
  1121. X       end_text
  1122. X       choice
  1123. X        display cycle
  1124. X        label "Type"
  1125. X        "Default"    maptype[9] =  "";
  1126. X        "Index"        maptype[9] =  "INDEXTYPE";
  1127. X        "Full Binary format"    maptype[9] =  "BINFULL";
  1128. X        "Object only Binary format"    maptype[9] =  "BINOBJ";
  1129. X        "Star only Binary format"    maptype[9] =  "BINSTAR";
  1130. X        "SAO format"    maptype[9] =  "SAOFORMAT";
  1131. X       end_choice        
  1132. X       text mapfile10
  1133. X        label "File:"
  1134. X        display 20
  1135. X        action mapfile[10] = mapfile10;
  1136. X       end_text
  1137. X       choice
  1138. X        display cycle
  1139. X        label "Type"
  1140. X        "Default"    maptype[10] =  "";
  1141. X        "Index"        maptype[10] =  "INDEXTYPE";
  1142. X        "Full Binary format"    maptype[10] =  "BINFULL";
  1143. X        "Object only Binary format"    maptype[10] =  "BINOBJ";
  1144. X        "Star only Binary format"    maptype[10] =  "BINSTAR";
  1145. X        "SAO format"    maptype[10] =  "SAOFORMAT";
  1146. X       end_choice        
  1147. X       text mapfile11
  1148. X        label "File:"
  1149. X        display 20
  1150. X        action mapfile[11] = mapfile11;
  1151. X       end_text
  1152. X       choice
  1153. X        display cycle
  1154. X        label "Type"
  1155. X        "Default"    maptype[11] =  "";
  1156. X        "Index"        maptype[11] =  "INDEXTYPE";
  1157. X        "Full Binary format"    maptype[11] =  "BINFULL";
  1158. X        "Object only Binary format"    maptype[11] =  "BINOBJ";
  1159. X        "Star only Binary format"    maptype[11] =  "BINSTAR";
  1160. X        "SAO format"    maptype[11] =  "SAOFORMAT";
  1161. X       end_choice        
  1162. X       text mapfile12
  1163. X        label "File:"
  1164. X        display 20
  1165. X        action mapfile[12] = mapfile12;
  1166. X       end_text
  1167. X       choice
  1168. X        display cycle
  1169. X        label "Type"
  1170. X        "Default"    maptype[12] =  "";
  1171. X        "Index"        maptype[12] =  "INDEXTYPE";
  1172. X        "Full Binary format"    maptype[12] =  "BINFULL";
  1173. X        "Object only Binary format"    maptype[12] =  "BINOBJ";
  1174. X        "Star only Binary format"    maptype[12] =  "BINSTAR";
  1175. X        "SAO format"    maptype[12] =  "SAOFORMAT";
  1176. X       end_choice        
  1177. X       text mapfile13
  1178. X        label "File:"
  1179. X        display 20
  1180. X        action mapfile[13] = mapfile13;
  1181. X       end_text
  1182. X       choice
  1183. X        display cycle
  1184. X        label "Type"
  1185. X        "Default"    maptype[13] =  "";
  1186. X        "Index"        maptype[13] =  "INDEXTYPE";
  1187. X        "Full Binary format"    maptype[13] =  "BINFULL";
  1188. X        "Object only Binary format"    maptype[13] =  "BINOBJ";
  1189. X        "Star only Binary format"    maptype[13] =  "BINSTAR";
  1190. X        "SAO format"    maptype[13] =  "SAOFORMAT";
  1191. X       end_choice        
  1192. X       text mapfile14
  1193. X        label "File:"
  1194. X        display 20
  1195. X        action mapfile[14] = mapfile14;
  1196. X       end_text
  1197. X       choice
  1198. X        display cycle
  1199. X        label "Type"
  1200. X        "Default"    maptype[14] =  "";
  1201. X        "Index"        maptype[14] =  "INDEXTYPE";
  1202. X        "Full Binary format"    maptype[14] =  "BINFULL";
  1203. X        "Object only Binary format"    maptype[14] =  "BINOBJ";
  1204. X        "Star only Binary format"    maptype[14] =  "BINSTAR";
  1205. X        "SAO format"    maptype[14] =  "SAOFORMAT";
  1206. X       end_choice        
  1207. X       button
  1208. X          normal    "done"    remove files_dialog;
  1209. X       end_button
  1210. X    end_gadgets
  1211. Xend_dialog
  1212. X
  1213. Xdialog var_dialog
  1214. X    gadgets
  1215. X       text vrange_high
  1216. X        label "Higher (brighter) Magnitude lable limit:"
  1217. X        display 20
  1218. X        action {
  1219. X            vrange_set = TRUE;
  1220. X            if (vrange_low == "") vrange_low = vrange_high;
  1221. X            vmag_mag = (vrange_low + vrange_high) / 2;
  1222. X            vmag_range = vrange_high - vmag_mag;
  1223. X        }
  1224. X       end_text
  1225. X       text vrange_low
  1226. X        label "Lower (fainter) Magnitude lable limit:"
  1227. X        display 20
  1228. X        action {
  1229. X            vrange_set = TRUE;
  1230. X            if (vrange_high == "") vrange_high = vrange_low;
  1231. X            vmag_mag = (vrange_low + vrange_high) / 2;
  1232. X            vmag_range = vrange_low - vmag_mag;
  1233. X        }
  1234. X       end_text
  1235. X       text vmag_mag
  1236. X        label "Center magnitude:"
  1237. X        display 20
  1238. X        action {
  1239. X            vrange_set = TRUE;
  1240. X            if (vmag_range == "") vmag_range = 0;
  1241. X            vrange_low = vmag_mag + vmag_range;
  1242. X            vrange_high = vmag_mag - vmag_range;
  1243. X        }
  1244. X       end_text
  1245. X       text vmag_range
  1246. X        label "Magnitude range:"
  1247. X        display 20
  1248. X        action {
  1249. X            vrange_set = TRUE;
  1250. X            if (vmag_mag == "") vmag_mag = 0;
  1251. X            vrange_low = vmag_mag + vmag_range;
  1252. X            vrange_high = vmag_mag - vmag_range;
  1253. X        }
  1254. X       end_text
  1255. X       button
  1256. X          normal    "done"    remove var_dialog;
  1257. X       end_button
  1258. X    end_gadgets
  1259. Xend_dialog
  1260. X
  1261. Xdialog grid_dialog
  1262. X    gadgets
  1263. X       left
  1264. X       align left
  1265. X       text grid_ra
  1266. X        label "R.A. grid step:"
  1267. X        display 20
  1268. X        action {
  1269. X            grid_ra_set = TRUE;
  1270. X        }
  1271. X       end_text
  1272. X       text grid_dec
  1273. X        label "Dec. grid step:"
  1274. X        display 20
  1275. X        action {
  1276. X            grid_dec_set = TRUE;
  1277. X        }
  1278. X       end_text
  1279. X       text grid_ra_start
  1280. X        label "R.A. grid start:"
  1281. X        display 20
  1282. X        action {
  1283. X            grid_ra_start_set = TRUE;
  1284. X        }
  1285. X       end_text
  1286. X       text grid_dec_start
  1287. X        label "Dec. grid start:"
  1288. X        display 20
  1289. X        action {
  1290. X            grid_dec_start_set = TRUE;
  1291. X        }
  1292. X       end_text
  1293. X       choice
  1294. X        display cycle
  1295. X            label "RA"
  1296. X        "invisible"    nogrid_ra = TRUE;
  1297. X        "visible"    nogrid_ra = FALSE;
  1298. X       end_choice
  1299. X       choice
  1300. X        display cycle
  1301. X            label "Dec"
  1302. X        "invisible"    nogrid_dec = TRUE;
  1303. X        "visible"    nogrid_dec = FALSE;
  1304. X       end_choice
  1305. X       button
  1306. X          normal    "done"    remove grid_dialog;
  1307. X       end_button
  1308. X    end_gadgets
  1309. Xend_dialog
  1310. X
  1311. Xdialog out_file_dialog
  1312. X    gadgets
  1313. X    text out_fname
  1314. X        label "write .starrc file: "
  1315. X        display 20
  1316. X    end_text
  1317. X    text write_mapwin_file
  1318. X        label "write mapwin file: "
  1319. X        display 20
  1320. X    end_text
  1321. X    text read_mapwin_file
  1322. X        label "read mapwin file: "
  1323. X        display 20
  1324. X    end_text
  1325. X       button
  1326. X          normal    "done"    remove out_file_dialog;
  1327. X       end_button
  1328. X    end_gadgets
  1329. Xend_dialog
  1330. X    
  1331. END_OF_FILE
  1332. if test 36032 -ne `wc -c <'starchart/startool.tt'`; then
  1333.     echo shar: \"'starchart/startool.tt'\" unpacked with wrong size!
  1334. fi
  1335. # end of 'starchart/startool.tt'
  1336. fi
  1337. echo shar: End of archive 27 \(of 32\).
  1338. cp /dev/null ark27isdone
  1339. MISSING=""
  1340. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 ; do
  1341.     if test ! -f ark${I}isdone ; then
  1342.     MISSING="${MISSING} ${I}"
  1343.     fi
  1344. done
  1345. if test "${MISSING}" = "" ; then
  1346.     echo You have unpacked all 32 archives.
  1347.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1348. else
  1349.     echo You still need to unpack the following archives:
  1350.     echo "        " ${MISSING}
  1351. fi
  1352. ##  End of shell archive.
  1353. exit 0
  1354.  
  1355.